﻿<%@ Page Language="VB" MasterPageFile="~/masterpages/MaestraFoto.master" AutoEventWireup="false"
    CodeFile="EditarFoto.aspx.vb" Inherits="photos_EditarFotot" Title="Galería" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="Server">
    <link href="../Estilos/StyleFotos.css" rel="Stylesheet" type="text/css" />
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" runat="Server">

    <script runat="server">
        Sub principal(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim IDAnimal As Integer
            Dim respuesta As String
            Dim numero As Integer = 1
            IDAnimal = gvAnimales.SelectedIndex
            Try
                IDAnimal = gvAnimales.DataKeys(IDAnimal).Item("AnimalId")
            Catch ex As Exception
                respuesta = "falta selecional algún animal."
                mensajeError(numero, respuesta)
                Return
            End Try
        End Sub
        Sub Button_Foto1(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim respuesta As String
            If (FileUpload1.HasFile) Then
                SaveFile(FileUpload1.PostedFile, "1")
            Else
                respuesta = "No ha especificado un archivo para cargar."
                mensajeError("1", respuesta)
            End If
        End Sub
        Sub Button_Foto2(ByVal sender1 As Object, ByVal e As System.EventArgs)
            Dim respuesta As String
            If (FileUpload1.HasFile) Then
                SaveFile(FileUpload1.PostedFile, "2")
            Else
                respuesta = "No ha especificado un archivo para cargar."
                mensajeError("2", respuesta)
            End If
        End Sub
        Sub Button_Foto3(ByVal sender1 As Object, ByVal e As System.EventArgs)
            Dim respuesta As String
            If (FileUpload1.HasFile) Then
                SaveFile(FileUpload1.PostedFile, "3")
            Else
                respuesta = "No ha especificado un archivo para cargar."
                mensajeError("3", respuesta)
            End If
        End Sub
        Sub Button_Foto4(ByVal sender1 As Object, ByVal e As System.EventArgs)
            Dim respuesta As String
            If (FileUpload1.HasFile) Then
                SaveFile(FileUpload1.PostedFile, "4")
            Else
                respuesta = "No ha especificado un archivo para cargar."
                mensajeError("4", respuesta)
            End If
        End Sub
          
          
        Sub SaveFile(ByVal file As HttpPostedFile, ByVal numero As String)
            Dim sUrl As String = Request.Url.Authority()
            Dim NumFoto As String = numero
            sUrl = "http://" + sUrl & "/Santafe/photos/Galeria/"
            Dim savePath As String
            'Establecer la ruta completa al archivo 
            savePath = Server.MapPath("~/photos/Galeria/")
              
            'Dim savePath As String = "C:/Users/rledesma/Documents/Santafe/photos/Galeria/"
            Dim FileName As String = FileUpload1.FileName
            Dim longitud As Integer = Len(FileName)
            Dim NombreArchivo As String
            Dim IDAnimal As Integer
            Dim respuesta As String
                
            IDAnimal = gvAnimales.SelectedIndex
            Try
                IDAnimal = gvAnimales.DataKeys(IDAnimal).Item("AnimalId")
            Catch ex As Exception
                respuesta = "falta selecional algún animal."
                mensajeError(numero, respuesta)
                Return
            End Try
            Dim codigo As String
            Try
                For I = 0 To longitud
                    codigo = FileName.Substring(I, 1)
                    If codigo = "." Then
                        NombreArchivo = IDAnimal & "_" & numero & FileName.Substring(I)
                    End If
                Next I
            Catch ex As Exception

            End Try
            FileName = NombreArchivo
              
              
            'FormaNombres(NumFoto, FileName)
            Dim pathToCheck As String = savePath + FileName
            Dim tempfileName As String
              
              
              
            If (System.IO.File.Exists(pathToCheck)) Then
                Dim counter As Integer = 2
             
                While (System.IO.File.Exists(pathToCheck))
                    tempfileName = counter.ToString() + FileName
                    pathToCheck = savePath + tempfileName
                    counter = counter + 1
                End While
                FileName = tempfileName
                ' UploadStatusLabel.Text = " Un archivo con el mismo nombre ya existe " + "<br/>" + _
                '"El archivo se guarda como " + FileName
                respuesta = "Un archivo con el mismo nombre ya existe " + FileName
                mensajeError(numero, respuesta)
            Else
                ' UploadStatusLabel.Text = "El archivo se ha subido correctamente " + FileName
                respuesta = "El archivo se ha cargado correctamente " + FileName
                mensajeClave(numero, FileName)
                mensajeError(numero, respuesta)
            End If
            savePath += FileName
            FileUpload1.SaveAs(savePath)
            If numero = 1 Then
                mostrarImagen(sUrl + FileName, Image1)
                RadioButton1.Visible = True
            End If
            If numero = 2 Then
                mostrarImagen(sUrl + FileName, Image2)
                RadioButton2.Visible = True
            End If
            If numero = 3 Then
                mostrarImagen(sUrl + FileName, Image3)
                RadioButton3.Visible = True
            End If
            If numero = 4 Then
                mostrarImagen(sUrl + FileName, Image4)
                RadioButton4.Visible = True
            End If
            InstTabla(CType(numero, Integer), FileName)
        End Sub
        Sub mostrarImagen(ByVal nombre As String, ByRef control As Image)
            control.ImageUrl = nombre
        End Sub
         
    </script>

    <div class="Contenido_foto">
        <div class="foto1 ">
            <table class="table" align="center" width="420px">
                <tr>
                    <td class="solocolor">
                        <center>
                            <asp:Label ID="Label2" runat="server" ForeColor="White" Text="Busqueda"></asp:Label>
                        </center>
                    </td>
                </tr>
            </table>
            <table align="center" width="420px">
                <tr>
                    <td>
                        &nbsp;Animal:&nbsp;
                    </td>
                    <td class="formaTD">
                        <asp:TextBox ID="txtAnimal" runat="server" BorderWidth="1px" MaxLength="8" Width="80px"
                            AutoPostBack="True" TabIndex="1"></asp:TextBox>
                    </td>
                    <td>
                        &nbsp;Padre:&nbsp;
                    </td>
                    <td class="formaTD">
                        <asp:TextBox ID="txtPadre" runat="server" BorderWidth="1px" MaxLength="8" Width="80px"
                            AutoPostBack="True"></asp:TextBox>
                    </td>
                    <td>
                        &nbsp;Madre:&nbsp;
                    </td>
                    <td class="formaTD">
                        <asp:TextBox ID="txtMadre" runat="server" BorderWidth="1px" MaxLength="8" Width="80px"
                            AutoPostBack="True"></asp:TextBox>
                    </td>
                </tr>
            </table>
            <div align="center">
                <asp:GridView ID="gvAnimales" runat="server" AllowPaging="True" AutoGenerateColumns="False"
                    CellPadding="4" PageSize="7" ToolTip="Vista predeterminada" RowStyle-HorizontalAlign="Left"
                    GridLines="Vertical" Style="margin-right: 0px" Width="607px" DataKeyNames="AnimalId"
                    ForeColor="#333333">
                    <PagerSettings PageButtonCount="20" />
                    <RowStyle BackColor="#F7F6F3" ForeColor="#333333" HorizontalAlign="Left" />
                    <Columns>
                        <asp:CommandField ButtonType="Image" SelectImageUrl="~/images/check14x13_blue.png"
                            ShowSelectButton="True" />
                        <asp:BoundField DataField="Sexo" HeaderText="Sexo" />
                        <asp:HyperLinkField DataNavigateUrlFields="animalid" DataNavigateUrlFormatString="~/Registro/general.aspx?animal={0}"
                            DataTextField="cveAnimal" HeaderText="Animal" Target="_self" />
                        <asp:BoundField DataField="cveAnimal" HeaderText="Animal" Visible="false" />
                        <asp:BoundField DataField="nombre" HeaderText="Nombre" />
                        <asp:BoundField DataField="padre" HeaderText="Padre" Visible="false" />
                        <asp:HyperLinkField DataNavigateUrlFields="id_padre" DataNavigateUrlFormatString="~/Registro/general.aspx?animal={0}"
                            DataTextField="padre" HeaderText="Padre" Target="_self" />
                        <asp:BoundField DataField="madre" HeaderText="Madre" Visible="false" />
                        <asp:HyperLinkField DataNavigateUrlFields="id_madre" DataNavigateUrlFormatString="~/Registro/general.aspx?animal={0}"
                            DataTextField="madre" HeaderText="Madre" Target="_self" />
                        <asp:BoundField DataField="fechabaja" DataFormatString="{0:d}" HeaderText="Fecha baja" />
                    </Columns>
                    <FooterStyle BackColor="#5D7B9D" ForeColor="White" Font-Bold="true" />
                    <PagerStyle BackColor="#284775" ForeColor="White" HorizontalAlign="Center" VerticalAlign="Top" />
                    <EmptyDataTemplate>
                        No existen registros con la condición dada
                    </EmptyDataTemplate>
                    <SelectedRowStyle BackColor="#E2DED6" Font-Bold="True" ForeColor="#333333" />
                    <HeaderStyle BackColor="#5D7B9D" Font-Bold="True" ForeColor="White" />
                    <EditRowStyle BackColor="#999999" />
                    <AlternatingRowStyle BackColor="White" ForeColor="#284775" Wrap="True" />
                </asp:GridView>
            </div>
        </div>
        <div class="Ruta">
            <asp:FileUpload ID="FileUpload1" runat="server" />
        </div>
        <div class="foto2 " align="center">
            <asp:Button ID="UploadButton1" runat="server" Text="Carga foto al servidor" OnClick="Button_Foto1"
                Height="20px" Width="160px" foto="1" TabIndex="1" ToolTip="Foto 1" CssClass="BotonesMedianos" />
            <asp:Button ID="BtnBorraFoto1" runat="server" Text="Borrar foto" Height="20px" CssClass="Botones"
                OnClientClick="return confirm('¿Desea borrar la foto?');" CausesValidation="False"
                ToolTip="Borra la foto" />
            <asp:RadioButton ID="RadioButton1" runat="server" GroupName="radio" AutoPostBack="True"
                Visible="False" />
            <br />
            <asp:Image ID="Image1" runat="server" Height="176px" Width="300px" ImageUrl="~/photos/toro.jpg" />
            <hr />
            <asp:Label ID="LbLMensaje1" runat="server"></asp:Label>
            <asp:Label ID="LblError1" runat="server"></asp:Label>
        </div>
        <div class="foto3 " align="center">
            <asp:Button ID="Button2" runat="server" Text="Carga foto al servidor" OnClick="Button_Foto2"
                Height="20px" Width="160px" ToolTip="Foto 2" CssClass="BotonesMedianos" />
            <asp:Button ID="BtnBorraFoto2" runat="server" Text="Borrar foto" Height="20px" CssClass="Botones"
                OnClientClick="return confirm('¿Desea borrar la foto?');" CausesValidation="False"
                ToolTip="Borra la foto" />
            <asp:RadioButton ID="RadioButton2" runat="server" GroupName="radio" AutoPostBack="True"
                Visible="False" />
            <br />
            <asp:Image ID="Image2" runat="server" Height="176px" Width="300px" ImageUrl="~/photos/toro.jpg" />
            <hr />
            <asp:Label ID="LbLMensaje2" runat="server"></asp:Label>
            <asp:Label ID="LblError2" runat="server"></asp:Label>
        </div>
        <div class="foto4 " align="center">
            <asp:Button ID="Button4" runat="server" Text="Carga foto al servidor" OnClick="Button_Foto3"
                Height="20px" Width="160px" CssClass="BotonesMedianos" />
            <asp:Button ID="BtnBorraFoto3" runat="server" Text="Borrar foto" Height="20px" CssClass="Botones"
                OnClientClick="return confirm('¿Desea borrar la foto?');" CausesValidation="False"
                ToolTip="Borra la foto" />
            <asp:RadioButton ID="RadioButton3" runat="server" GroupName="radio" AutoPostBack="True"
                Visible="False" />
            <br />
            <asp:Image ID="Image3" runat="server" Height="176px" Width="300px" ImageUrl="~/photos/toro.jpg" />
            <hr />
            <asp:Label ID="LbLMensaje3" runat="server"></asp:Label>
            <asp:Label ID="LblError3" runat="server"></asp:Label>
        </div>
        <div class="foto5 " align="center">
            <asp:Button ID="Button6" runat="server" Text="Carga foto al servidor" OnClick="Button_Foto4"
                Height="20px" Width="160px" CssClass="BotonesMedianos" />
            <asp:Button ID="BtnBorraFoto4" runat="server" Text="Borrar foto" Height="20px" CssClass="Botones"
                OnClientClick="return confirm('¿Desea borrar la foto?');" CausesValidation="False"
                ToolTip="Borra la foto" />
            <asp:RadioButton ID="RadioButton4" runat="server" GroupName="radio" AutoPostBack="True"
                Visible="False" />
            <br />
            <asp:Image ID="Image4" runat="server" Height="176px" Width="300px" ImageUrl="~/photos/toro.jpg" />
            <hr />
            <asp:Label ID="LbLMensaje4" runat="server"></asp:Label>
            <asp:Label ID="LblError4" runat="server"></asp:Label>
        </div>
    </div>
</asp:Content>
